
   1 .
   2 .
   3 . NIGHT RAID
   5 T=0;N=3;O=5;K=0;P=0;F=0;H=1;G=38
  10 BC=0;NT=3
  20 clear ;gosub 900;clear ;NT=0;&(22)=180
  30 X=75;Y=G;Z=70
  40 gosub 700;gosub 780
  50 gosub 800
  60 B=Bmul H;X=X-B;Z=Z-B
  80 if K=5goto 100
  90 K=rnd (10);if K#5goto 110
  95 Q=X;R=Y
 100 R=R-rnd (10);gosub 600
 110 if KN(1)#Dgosub 800
 120 if P=1gosub 500;goto 140
 130 if TR(1)=1gosub 500;P=1
 140 goto 40
 400 for I=1to 15
 410 gosub 790
 420 BC=90;BC=82;BC=0
 430 next I;gosub 792;P=0;O=O-1;if O<1goto 1000
 440 X=rnd (2);if X=2goto 460
 450 X=75;Z=70;H=1;goto 470
 460 X=-70;Z=-75;H=-1
 470 G=G-7;if G<-30goto 1100
 480 Y=G;goto 40
 500 if P=1goto 520
 510 S=D;T=-32;for I=1to 5;&(23)=255;&(21)=255;next I;&(23)=0;&(21)=0
 520 box S,T,1,3,1;box S,T,1,3,3
 530 if Y<=Tif Z<=Sif S<=Xgoto 400
 540 T=T+15;if T>Y+8P=0
 550 return 
 600 &(16)=50;if rnd (50)=30Q=D
 605 if R>-36return 
 610 &(16)=255;if Q<=D+10if D-10<=Qgoto 630
 620 K=0;return 
 630 for I=1to 12;gosub 790
 640 BC=5;BC=10;BC=11;BC=14;BC=0;next I
 650 gosub 792;P=0;K=0;N=N-1;if N=0goto 950
 660 return 
 700 box X,Y,1,1,1
 710 box Z,Y,1,1,1
 720 box X,Y,1,1,3
 730 box Z,Y,1,1,3
 740 Y=G;Y=Y-(rnd (7)-1)
 750 B=rnd (8);if H=1if Z<-75goto 440
 760 if H=-1if Z>75goto 440
 770 return 
 780 &(16)=255;&(17)=255;&(18)=255;return 
 790 &(20)=205;&(23)=250;&(21)=80;&(18)=100;&(22)=255;return 
 792 &(18)=255;&(23)=0;&(21)=0;&(20)=0;&(22)=180;return 
 800 if F#0box D,-40,3,3,3;box D,-36,1,3,3
 810 D=KN(1);F=1;if D>75D=75
 820 if D<-75D=-75
 830 box D,-40,3,3,1;box D,-36,1,3,1;return 
 900 for C=1to 3;FC=5;clear ;CY=0;CX=-55
 910 print "N I G H T   R A I D"
 930 for E=1to 25;next E
 940 next C;FC=84;return 
 950 FC=5;clear 
 960 print " OH,WONDERFUL
 970 print "    NOW WHAT !!!!!!!
 980 print "WE'VE GOT NO DEFENSE LEFT";CY=0;goto 1120
1000 clear ;print "YOU HAVED SAVED US !!!!
1005 CY=0
1010 print "YOU EVEN LEFT US WITH ",#1,N;print "BASES
1020 gosub 792;NT=1;STOP
1100 NT=1;clear ;CY=0
1110 print "THE BOMBER HAS LANDED"
1120 print "PREPARE TO DETONATE T.N.T.
1499 for A=1to 3000;next A;clear 
1500 box 0,-15,30,30,1;Y=5;Z=20
1510 for I=1to 10;box 0,Y,2,30,1
1520 box 0,Z,10,2,1
1525 box 0,Z,10,2,3
1530 Z=Z-2;Y=Y-2;next I
1540 box 0,-15,30,30,3
1550 for I=30to 160step 5
1560 gosub 790
1570 FC=5;BC=84;FC=10;BC=90;FC=11
1571 BC=93;FC=14;BC=95;FC=85;BC=0
1580 box 0,0,I,Idiv 2,1;next I
1585 BC=85;NT=0;CY=0;CX=-30;print "GAME OVER
1590 FC=0;NT=1;gosub 792;&(22)=0
>:return 